;; Might come in handy sometime. Copy this to oo-eval.scm and
;; make it available as a primitive procedure.
(define (symbol-prefix? prefix sym)
  (regexp-match (string-append "^" 
                               (symbol->string prefix)
                               ".*")
                (symbol->string sym)))
